home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ Control Panel Hide 7.xpl < prev    next >
Text File  |  2000-11-13  |  3KB  |  119 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="Appearance\Control Panel\OEM Icons"
  5. "NAME"="Visible OEM Items #2"
  6. "VERSION"="1.14"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Display "Colorific" applet"
  9. "TEXT 2"="Display "3Deep" applet"
  10. "TEXT 3"="Display "Toshiba HW Config" applet"
  11. "TEXT 4"="Display "Toshiba Power Saver" applet"
  12. "TEXT 5"="Display "Toshiba Services" applet"
  13. "DESCRIPTION 1"="This plug-in can be used to hide or show the different applets inside Start -> Settings -> Control Panel."
  14. "DESCRIPTION 2"="Colorific and 3Deep are video card utilities that help you adjust brightness, gamma, etc.  They come with many video cards."
  15. "DESCRIPTION 3"="The Toshiba items come with any Toshiba computer."
  16. "AUTHOR"="Xteq Systems"
  17. "CONTACTURL"="http://www.xteq.com"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"=" "
  20. "COMMENT 2"="Special thanks to CptSiskoX (CptSiskoX@flashmail.com) for his help."
  21. "COMMENT 3"="Thanks also to Kathy for her help with the Toshiba items. See also: MS KB Q207750."
  22.  
  23.  
  24. '******************************************************************
  25. '***                COPY !!!! ONLY EDIT LINES BELOW!!!!        ****
  26. '******************************************************************
  27. sVals=""
  28. sVals2=Array("ColorificPanel.cpl","3Deep.cpl","HWSetup.cpl","PWRSAVE.cpl","Toshcfg.cpl") 
  29. sVals3=Array("ColorificPanel.cpl","3Deep.cpl","HWSetup.cpl","PWRSAVE.cpl","Toshcfg.cpl") 
  30. '******************************************************************
  31. '*** Keep an eye on the order (must be the same as "TEXT x") ! ****
  32. '******************************************************************
  33. sPath="HKCU\Control Panel\Don't Load\"
  34. sFile="CONTROL.INI"
  35. sFileSec="Don't Load"
  36.  
  37.  
  38.  
  39. SUB Plugin_Initialize
  40.  if GetWinVer=4 then
  41.     sVals=sVals3
  42.  else
  43.     sVals=sVals2
  44.  end if
  45.  
  46.  for i=0 to UBound(sVals)
  47.      Call ReadIt(i+1,sVals(i)) 
  48.  next 
  49. END SUB
  50.  
  51. Sub ReadIt(ITM,VAL)
  52.   If GetWinVer=2 or GetWinVer=4 then
  53.  
  54.      s=RegReadValue(sPath & VAL)
  55.      if IsEmpty(s)=true then
  56.         Call SetUIElement(ITM,true)
  57.      else
  58.         Call SetUIElement(ITM,false)
  59.      end if
  60.  
  61.   else
  62.  
  63.     s=IniReadValue(sFile,sFileSec,VAL)
  64.     if len(s)>0 then
  65.        Call SetUIElement(ITM,false)
  66.     else
  67.        Call SetUIElement(ITM,true)
  68.     end if
  69.      
  70.   end if
  71.      
  72. End Sub
  73.  
  74. 'Called when the Plugin should validate the Data the user has entered
  75. SUB Plugin_CheckData(ElementIndex)
  76. END SUB
  77.  
  78. 'Called when the Plugin should apply the changes
  79. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  80.  for i=0 to UBound(sVals)
  81.      Call WriteIt(i+1,sVals(i)) 
  82.  next 
  83.  
  84.  Call IndicateSettingChange()
  85. END SUB
  86.  
  87. Sub WriteIt(ITM,VAL)
  88.  b=GetUIElement(ITM)
  89.  if b=true then
  90.     'Display it
  91.  
  92.     if GetWinVer=2 or GetWinVer=4 then  
  93.        s=RegReadValue(sPath & VAL)
  94.        if IsEmpty(s)=false then
  95.           Call RegDeleteValue(sPath & VAL)
  96.        end if
  97.     else
  98.        Call IniWriteValue(sFile,sFileSec,VAL,"")
  99.     end if
  100.  
  101.  else
  102.    'Hide it
  103.    
  104.    if GetWinVer=2 or GetWinVer=4 then
  105.       Call RegWriteValue(sPath & VAL,"1",1) 
  106.    else
  107.       Call IniWriteValue(sFile,sFileSec,VAL,"no")
  108.    end if
  109.  
  110.  end if   
  111. End Sub
  112.  
  113.  
  114. 'Called when the Plugin is about to be removed from memory
  115. SUB Plugin_Terminate
  116. END SUB
  117.  
  118.  
  119.